home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / Chip_2004-06_cd1.bin / software / tsw / tsw.exe / {app} / scripts / phpsinglelinecomment.tss < prev    next >
Text File  |  2003-07-09  |  552b  |  30 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=PHP singleline comment
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. program PHPSingleLineComment;
  8.  
  9. function CommentIt(s: string) : string;
  10. var
  11.  TempList: TStringList;
  12.  Temp: string;
  13.  i: integer;
  14. begin
  15.  TempList := TStringList.Create;
  16.  TempList.Text := s;
  17.  for i := 0 to TempList.Count - 1 do
  18.   if TempList.Strings[i] <> '' then
  19.    Temp := Temp + '//'+TempList.Strings[i]+#13#10;
  20.  TempList.Free;
  21.  Result := Temp;
  22. end;
  23.  
  24. var
  25.  Code: string;
  26. begin
  27.  Code := GetSelText;
  28.  SetSelText(CommentIt(Code));
  29. end.
  30.